home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Extravaganza - Disc 4
/
Shareware Extravaganza - Over 25,000 Programs (The Ultimate Shareware Company)(Disc 4 of 4)(1993).iso
/
cad
/
jul90.zip
/
TIP552.LSP
< prev
next >
Wrap
Text File
|
1990-07-09
|
370b
|
13 lines
;TIP552.LSP Dimension to Wall Centrelines (c)1990, Jeffrey Morris
(defun btwn ( / ENT1 ENT2)
(setq ENT1 (getpoint "First line: ")
ENT2 (getpoint "Second line: ")
)
(list
(+ (car ENT1)(* 0.5 (- (car ENT2)(car ENT1))))
(+ (cadr ENT1)(* 0.5 (- (cadr ENT2)(cadr ENT1))))
(+ (caddr ENT1)(* 0.5 (- (caddr ENT2)(caddr ENT1))))
)
)